module m 
  use oad_active
  type(active),target :: aVar
  double precision, target :: pVar
end module 
